home *** CD-ROM | disk | FTP | other *** search
/ Advanced Placement Companion: Precalculus / Advanced Placement Companion: Precalculus.iso / pc / M_DIR / 12-08051.DIR / 00103_Button Lingo.ls < prev    next >
Encoding:
Text File  |  1998-03-12  |  1.2 KB  |  52 lines
  1. on startMovie
  2.   global gstop
  3.   set gstop to 0
  4. end
  5.  
  6. on button
  7.   set thisOne to the clickOn
  8.   set the locH of sprite thisOne to the locH of sprite thisOne + 2
  9.   set the locV of sprite thisOne to the locV of sprite thisOne + 2
  10.   updateStage()
  11.   puppetSound("click")
  12.   updateStage()
  13.   repeat while soundBusy(1)
  14.   end repeat
  15.   set the locH of sprite thisOne to the locH of sprite thisOne - 2
  16.   set the locV of sprite thisOne to the locV of sprite thisOne - 2
  17.   updateStage()
  18. end
  19.  
  20. on cursor
  21.   if rollOver(37) = 1 then
  22.     set the visible of sprite 37 to 1
  23.   else
  24.     set the visible of sprite 37 to 0
  25.   end if
  26.   if rollOver(38) = 1 then
  27.     set the visible of sprite 38 to 1
  28.   else
  29.     set the visible of sprite 38 to 0
  30.   end if
  31.   if rollOver(39) = 1 then
  32.     set the visible of sprite 39 to 1
  33.   else
  34.     set the visible of sprite 39 to 0
  35.   end if
  36.   if rollOver(40) = 1 then
  37.     set the visible of sprite 40 to 1
  38.   else
  39.     set the visible of sprite 40 to 0
  40.   end if
  41.   if rollOver(41) = 1 then
  42.     set the visible of sprite 41 to 1
  43.   else
  44.     set the visible of sprite 41 to 0
  45.   end if
  46.   if rollOver(42) = 1 then
  47.     set the visible of sprite 42 to 1
  48.   else
  49.     set the visible of sprite 42 to 0
  50.   end if
  51. end
  52.